perm filename TEST.F4[SCR,LCS]1 blob sn#369186 filedate 1978-07-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION ISC(12),IOC(9)
C00003 ENDMK
CāŠ—;
	DIMENSION ISC(12),IOC(9)
	DATA ISC/' C   ','CS   ',' D   ','DS   ',' E   ',' F   ',
	1 'FS   ',' G   ','GS   ',' A   ','AS   ',' B   '/,
	1 IOC/495916,497664,496640,496128,0,332288,332800,333824,
	1 332076/
1	TYPE 10  
	ACCEPT 3,I
	J=I-1
	IOCT=1+J/12
	N=MOD(J,12)+1
	M=ISC(N)+IOC(IOCT)
	TYPE 20,M 
	GO TO 1        
10	FORMAT(' TYPE A NUM.  '$)
20	FORMAT(1XA5/)
3	FORMAT(5I)
	END